home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / megaindent.fpl < prev    next >
Text File  |  1995-07-18  |  419b  |  22 lines
  1. export int MegaIndent()
  2. {
  3.    string file;
  4.    int x, y;
  5.  
  6.    x = ReadInfo("block_begin_x");
  7.    y = ReadInfo("block_begin_y");
  8.  
  9.    BlockCut();
  10.    file = GetBlock();
  11.    SaveString("T:Fred_tmp", file);
  12.    System("indent T:Fred_tmp");
  13.  
  14.    BlockMark(0);
  15.  
  16.    file = LoadString("T:Fred_tmp");
  17.    Output(file);
  18.    BlockMark(2, x, y, ReadInfo("column"), ReadInfo("line"));
  19. }
  20.  
  21. AssignKey("MegaIndent();", "amiga a", "block_exist");
  22.